Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/redtop/setup.frm

Text File | 1994-11-27 | 7KB | 231 lines

VERSION 2.00
Begin Form frmSetup
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Double
   ClientHeight    =   4080
   ClientLeft      =   1980
   ClientTop       =   1830
   ClientWidth     =   4380
   Height          =   4485
   Icon            =   SETUP.FRX:0000
   Left            =   1920
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4080
   ScaleWidth      =   4380
   Top             =   1485
   Width           =   4500
   Begin Frame fraOptions
      Height          =   495
      Left            =   120
      TabIndex        =   7
      Top             =   3120
      Width           =   4155
      Begin CheckBox chkMMove
         Caption         =   "Moving mouse will not disable screen saver"
         Height          =   315
         Left            =   120
         TabIndex        =   5
         Top             =   120
         Width           =   3975
      End
   End
   Begin Frame fraAuthor
      Caption         =   "Author"
      Height          =   1275
      Left            =   720
      TabIndex        =   12
      Top             =   0
      Width           =   2475
      Begin Label lblVersion
         Caption         =   "Version x.x"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   900
         Width           =   2295
      End
      Begin Label lblAuthor
         BackColor       =   &H00FFFFFF&
         Caption         =   "Rob McIntosh.     Comments to 100413,1342 on Compuserve"
         Height          =   615
         Left            =   120
         TabIndex        =   13
         Top             =   300
         Width           =   2295
      End
   End
   Begin Frame fraPassword
      Caption         =   "Password"
      Height          =   735
      Left            =   120
      TabIndex        =   11
      Top             =   2340
      Width           =   4155
      Begin CommandButton cmdPassword
         Caption         =   "Set Password..."
         Enabled         =   0   'False
         Height          =   315
         Left            =   2340
         TabIndex        =   4
         Top             =   240
         Width           =   1695
      End
      Begin CheckBox chkPassword
         Caption         =   "Password Protected"
         Height          =   315
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   2175
      End
   End
   Begin Frame fraSpeed
      Caption         =   "Speed"
      Height          =   855
      Left            =   120
      TabIndex        =   9
      Top             =   1440
      Width           =   4155
      Begin HScrollBar hsbSpeed
         Height          =   255
         LargeChange     =   50
         Left            =   120
         Max             =   500
         SmallChange     =   10
         TabIndex        =   2
         Top             =   300
         Width           =   3915
      End
      Begin Label Label5
         Alignment       =   1  'Right Justify
         Caption         =   "Fast"
         Height          =   195
         Left            =   3600
         TabIndex        =   10
         Top             =   600
         Width           =   435
      End
      Begin Label Label6
         Caption         =   "Slow"
         Height          =   195
         Left            =   120
         TabIndex        =   6
         Top             =   600
         Width           =   495
      End
   End
   Begin CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   315
      Left            =   3300
      TabIndex        =   1
      Top             =   960
      Width           =   975
   End
   Begin CommandButton cmdOK
      BackColor       =   &H00FFFFFF&
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   315
      Left            =   3300
      TabIndex        =   0
      Top             =   540
      Width           =   975
   End
   Begin Image imgIcon
      Enabled         =   0   'False
      Height          =   480
      Left            =   120
      Top             =   300
      Width           =   480
   End
   Begin Line Line2
      BorderWidth     =   2
      X1              =   120
      X2              =   4260
      Y1              =   3720
      Y2              =   3720
   End
   Begin Line Line1
      BorderWidth     =   2
      X1              =   120
      X2              =   4260
      Y1              =   1380
      Y2              =   1380
   End
   Begin Label Label3
      BackColor       =   &H00FFFFFF&
      Caption         =   "This Screen Saver is Freeware."
      Height          =   195
      Left            =   120
      TabIndex        =   8
      Top             =   3780
      Width           =   2715
   End
End
Option Explicit

Sub chkPassword_Click ()
    If chkPassword.Value Then
        cmdPassword.Enabled = True
    Else
        cmdPassword.Enabled = False
    End If
End Sub

Sub cmdCancel_Click ()

    Unload Me

End Sub

Sub cmdOK_Click ()

Dim putback As String

    'Save Everything back to the control.ini file

    If chkMMove.Value <> -1 * MouseMove Then
        putback = Format$(chkMMove.Value)
        Call PutIni(iniName, iniSection, "MouseMove", putback)
    End If
    If hsbSpeed.Value <> SpinSpeed Then
        putback = Format$(hsbSpeed.Value)
        Call PutIni(iniName, iniSection, "SpinSpeed", putback)
    End If
    If chkPassword.Value <> PWprotected Then
        putback = Format$(chkPassword.Value)
        PWprotected = chkPassword.Value
        Call PutIni(iniName, iniSection, "PWprotected", putback)
    End If
    Unload Me

End Sub

Sub cmdPassword_Click ()

    'Show the password form
    frmPassword.Show 1

End Sub

Sub Form_Load ()

    caption = SaverName & " Settings"
    CentreForm Me
    ' Get the picture from the icon
    imgIcon.Picture = Me.icon
    chkMMove.Value = -1 * MouseMove
    hsbSpeed.Value = SpinSpeed
    lblVersion = VERSION
    If PWprotected Then
        chkPassword.Value = 1
    Else
        chkPassword.Value = 0
    End If
End Sub